100 REM"[212]HIS PROGRAM ATTACHES [195]HRIS [211]MEETS .[211][198][216] HEADER TO AN .[204][218][200] FILE."
110 REM"[212]HE BASIC PROGRAM CREATED BY [210]USSELL [208]RATER AND DONATED TO [208]UBLIC [196]OMAIN.
120 [143]"(null)HE HEADER, CALLED 'BASE' IS PART OF THE (null)HAREWARE PACKAGE 'LEN(null)-STR$(null)(null)'."
130 [143]"ATNLL RIGHTS TO 'LEN(null)-STR$(null)(null)' AND 'BASE' BELONG TO LENHRIS (null)MEETS."
140 [143]"CHR$ET 'LEN(null)-STR$(null)(null)' AND MAKE A (null)HAREWARE STR$ONATION TO LENHRIS.
150 PRINT"[147]     .[204][218][200] TO .[211][198][216] [195]ONVERTER [208]ROGRAM     "
160 PRINT"      [197]ASY PART BY: [210]USSELL [208]RATER"
170 PRINT"       [200]ARD PART BY: [195]HRIS [211]MEETS":PRINT
180 PRINT"[197]NTER [196]EVICE [206]UMBER OF [215]ORK [196]RIVE.   8[157][157][157]";:INPUT D
190 OPEN15,D,15:OPEN2,D,0,"BASE":GOSUB320:CLOSE2:IFE<20THEN220
200 IFE=62THENPRINT"[195]OPY THE PROGRAM [194][193][211][197] TO":PRINT"WORK DISK AND TRY AGAIN."
210 GOTO310
220 PRINT"[201]NPUT THE NAME OF THE .[204][218][200] FILE. ":INPUTLZ$
230 IFRIGHT$(LZ$,4)<>".LZH"THENPRINT"[208]LEASE INCLUDE THE .[204][218][200]":GOTO220
240 OPEN2,D,0,LZ$:CLOSE2
250 GOSUB320:IFETHEN310
260 PRINT"[215][207][210][203][201][206][199].... [208]LEASE WAIT."
270 FORI=1TO16:IFMID$(LZ$,I,1)<>"."THENNEXT
280 SF$=LEFT$(LZ$,I-1)+".SFX":C$="C0:ZZZ=BASE,"+LZ$
290 PRINT#15,C$:GOSUB320:IFE>20THEN310
300 NN$="R0:"+SF$+"=ZZZ":PRINT#15,NN$:GOSUB320:IFE<20THENPRINT".[211][198][216] [198]ILE IS [195]OMPLETED."
310 CLOSE15:END
320 INPUT#15,E,M$,T,S:IFETHENPRINT"[196]ISK [197]RROR: "M$
330 RETURN